home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / util / wb / Clipper_AWNP.lha / Clipper_AWNP / Install-Clipper < prev    next >
Text File  |  2000-02-17  |  4KB  |  191 lines
  1. ; $VER: 'Install-Clipper' 1.2 for Clipper 4.4
  2. ; Script created by Bruce Steers bsteers@btinternet.com
  3.  
  4. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  5. (set #needInst43 "You must use Installer version 43 or greater.")
  6. (set srcdir (pathonly @icon))
  7. (if (< (/ @installer-version 65536) 43)
  8.   (abort #needInst43)
  9. )
  10.  
  11.  
  12. (complete 10)
  13.  
  14. (set askfor "\nSelect a Drawer to install Clipper\nNo drawer will be Created.\n\nThis should be in your path for AmIRC usage eg. C:")
  15. (set dst  (copyfiles
  16.         (source "Clipper")
  17.         (dest "C:")
  18.         (prompt "Install Clipper to \"C:\" ?")
  19.         (help "")
  20.         (confirm)
  21.         (infos)
  22.         )
  23. )
  24. (complete 20)
  25.  
  26. (copylib
  27. (source "rexxsupport.library")
  28. (dest "libs:")
  29. (prompt "Install rexxsupport.library to \"libs:\" ?")
  30. (help "")
  31. (confirm)
  32. )
  33.  
  34.  
  35. (set lang
  36.     (askoptions
  37.         (prompt "Select Language catalogs to install\nEnglish is Built in.")
  38.         (help @askchoice-help)
  39.         (choices "Deutsch" "français")
  40.         (default 0)
  41.     )
  42. )
  43.  
  44.   (set path (pathonly @icon))
  45.  
  46. (if (or (= lang 1) (= lang 3))
  47.   (
  48.   (set cata (tackon path "catalogs/deutsch/"))
  49.     (copyfiles
  50.     (source cata)
  51.     (dest "LOCALE:Catalogs/deutsch/")
  52.     (all)
  53.     )
  54.   )
  55. )
  56.  
  57. (if (or (= lang 2) (= lang 3))
  58.   (
  59.   (set cata (tackon path "catalogs/français/"))
  60.     (copyfiles
  61.     (source cata)
  62.     (dest "LOCALE:Catalogs/français/")
  63.     (all)
  64.     )
  65.   )
  66. )
  67.  
  68. (complete 30)
  69.  
  70. (copylib
  71. (source "awnpipe-handler")
  72. (dest "l:")
  73. (prompt "Install awnpipe-handler to \"l:\" ?")
  74. (help "")
  75. (confirm)
  76. )
  77.  
  78. (complete 40)
  79.  
  80. (copyfiles
  81.    (source "AWNPIPE")
  82.    (dest "Devs:Dosdrivers/")
  83.    (prompt "\nInstall AWNP to Devs:DosDrivers ?\n")
  84.    (help "")
  85.    (confirm)
  86.    (infos)
  87. )
  88.  
  89. (complete 50)
  90.  
  91. (if (exists "awnpipe:")
  92.  (run "assign awnpipe: dismount\nmount awnpipe:")
  93. )
  94.  
  95. (run "mount awnpipe:")
  96.  
  97.  
  98. (complete 60)
  99.  
  100. (if (askbool
  101.     (prompt "\nIf you use AmIRC i can install a Script\nto call Clipper from AmIRCs Menus.\n()_\\\n() /")
  102.     (help "Installs a Script called Clipper.amirx into the AmIRC/Rexx drawer. you can then call Clipper from AmIRCs Menus\n\nYou must Click your way to the AmIRC main drawer (not the Rexx dir)")
  103.     (choices "Yes" "Skip")
  104.     )
  105.  
  106.  (
  107.  
  108.     (set defdest (tackon (expandpath "Miami:/") "AmIRC"))
  109. (complete 70)
  110.     (set amd (askdir
  111.              (prompt "\nI need to know where AmIRC is.\nPlease Select The AmIRC Directory")
  112.              (help "Installs a Script called Clipper.amirx into the AmIRC/Rexx drawer. you can then call Clipper from AmIRCs Menus\n\nYou must Click your way to the AmIRC main drawer (not the Rexx dir)")
  113.              (default defdest)
  114.              )
  115.     )
  116.  
  117.     (set adst (tackon amd "Rexx"))
  118.  
  119.     (if (NOT (exists adst))
  120.     (abort "could not find "adst"\n\nI need the AmIRC Main Drawer")
  121.     )
  122. (complete 80)
  123.  
  124.     (copyfiles
  125.     (source "Clipper.amirx")
  126.     (dest adst)
  127.     (prompt "Install Clipper.amirx to "adst" ?")
  128.     (help "")
  129.     (confirm)
  130.     (infos)
  131.     )
  132. (complete 90)
  133.  
  134.     (if (exists "SYS:Prefs/Env-Archive/Clipper.cfg")
  135.          (rename "SYS:Prefs/Env-Archive/Clipper.cfg" "SYS:S/ClipPrefs/Clipper.cfg"
  136.          (prompt "\nRename SYS:Prefs/Env-Archive/ClipperIRC.cfg\n  to \"SYS:S/ClipPrefs/Clipper.cfg\" ?")
  137.          (help "")
  138.          (confirm)
  139.          )
  140.     )
  141.  
  142.     (set cprefs "S:ClipPrefs")
  143.  
  144.     (if (NOT (exists cprefs))
  145.       (makedir cprefs
  146.       (prompt "\n\nIs it OK to make a new prefs dir\ncalled "cprefs" ?\n\nthis can be you home for many prefs files :^)")
  147.       (help @makedir-help)
  148.       (confirm)
  149.       (infos)
  150.       )
  151.     )
  152.  
  153.     (if (exists "S:ClipperIRC.cfg")
  154.          (rename "S:ClipperIRC.cfg" "S:ClipPrefs/ClipperIRC.cfg"
  155.          (prompt "\nRename S:ClipperIRC.cfg to \"S:ClipPrefs/ClipperIRC.cfg\" ?")
  156.          (help "")
  157.          (confirm)
  158.          )
  159.  
  160.  
  161.          (copyfiles
  162.          (source "ClipperIRC.cfg")
  163.          (dest cprefs)
  164.          (prompt "Install ClipperIRC.cfg to \"S:ClipPrefs/\" ?")
  165.          (help "")
  166.          (confirm)
  167.          (infos)
  168.          )
  169.     )
  170.  )
  171.  
  172. )
  173.  
  174. (copyfiles
  175.    (source "Clipper.guide")
  176.    (dest "HELP:English/")
  177.    (prompt "\nInstall Clipper.guide to HELP:English/ ?\nPress \"Help...\" for info")
  178.    (help "\nThis enables the help key to be pressed in a Clipper window to load the Guide relevant to the programs position\n\nThe order Clipper searches for the Guide is..\n 1st: help:English/\n 2nd: help:\nlast: ProgDir:"
  179.     "\n\nIf not found in any of these the Help Key will not work.")
  180.    (confirm)
  181.    (infos)
  182. )
  183. (complete 99)
  184.  
  185. (set @default-dest (expandpath dst))
  186.  
  187. (complete 100)
  188.  
  189. (exit  "\n\n" @app-name " Installaton is now over.\n")
  190.  
  191.